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| 
-Sep-19 

H 1 001 MODULE LBR_OLDLIB ( ! Routines to process old format Libraries 

; ¢ One LANGUAGE ( b1533¢). 

: 0 IDENT = ‘V04-000 

i 808 1 BEGIN = | 

ig an 1 | 

$ 3 4 ! aii i iiataiaiacin intimated 

Py .* * 

: 10 0010 1 i* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY & 

i 9011 1 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. “ 

3 \¢ \¢ } = ALL RIGHTS RESERVED. * 

Py . * 

. boiz 1 !® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

3 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

ci B018 1 !* INCLUSI ABOVE COPYRIGHT NOTICE. THI OR ANY OTHER * 

; 17 001 1 !® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

3 18 id | 1 !® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

3 ah ; it TRANSFERRED. * 

Ps St 

3 i itd 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

: 22 00 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

; ? O0Sz : is CORPORATION. * 

Ps 4 a 

4 5 b05¢ 1 !® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

3 ° B8 § : ~ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

Py : ® 

;s 2 ist 1 !e * | 

g ; 5 94 : Lee RARER RARER RAAT 

; 31 0031 1 !++ 

; ¢ it 1! 

cy 2 0033 1! FACILITY: Library access procedures 

; 0034 1! 

: $2 B03? : ABSTRACT: 

; «37 0037 1! The VAX/VMS Librarian procedures implement a standard access method 

3 3 sit ; } to Libraries through a shared, common procedure set. 

: 40 0040 1 | ENVIRONMENT: 

s 61 0041 1! 

: $¢ bOe§ & VAX native, user mode. 

i= & 0043 1 

: 646 044 1 !-- 

s 65 045 1! 

:; 646 046 1! 

: tf sad ! AUTHOR: Benn Schreiber, CREATION DATE: 24-July-1979 

: 49 0049 1 | MODIFIED BY: | 

2 0050 1! | 

a BY 0051 1! v02-001 RPGOO01 Bob Grosso 31-Aug-1981 

3 2g O3¢ 1! Remove LBRMSG. 

: 053 1 !-- 

s 34 054 1 

; $5 055 1 | 
| 
| 
| 
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H 7 0 § 1 LIBRARY 

; 8 0 1 *SYSSLIBRARY:STARLET.L32'; 

; 9 : 8 1 REQUIRE 

; 60 1 "PREF IX'; 

ie | 138 1 REQUIRE 

; §¢ 199 1 *LBRDEF'; 

; 6 790 1 REQUIRE 

> 64 791 «#1 *OLDFMTDEF'; 

; 65 + ae 

; 6 8 1 LINKAGE 

; 44 +434 : fmg_match = JSB (REGISTER = 2, REGISTER = 3, REGISTER = 4, REGISTER = 5) : NOTUSED (10, 11); 
; «69 O89) 1 FORWARD ROUTINE 

: 70 0 96 1 check_wild, 'Check wildcard match 

; 93 1 call_user, ‘Call user routine 

= 94 «1 check_rfa 'Check RFA before calling user 
3 oF S82 : travers_old_idx; 'Traverse index 

H 75 0 39 1 EXTERNAL ROUTINE 

.. # 8 98 #1 fmg$match_name : {mg_match, ‘Embedded wild card matching 
ee. 99 1 find_block : JSB_3, 'Find block and map in memory 
; 0900 1 read_block : JSB 2, 'Read disk block 

:; 79 320] 1 read_n_block : J$8_2, 'Read and cache multiple disk blocks 
; 8 a36 1 qet mem : JSB_2 ‘Allocate dynamic memory 

3 a ast ' ealloc_mem :~JSB_2; 'Deallocate dynamic memory 

: 8 0905 1 EXTERNAL 

; ae 343 : Lbr$gl_control : REF BBLOCK; !Librarian control block 

; ©6886 0908 1 EXTERNAL LITERAL 

s 8 0909 1 Lbr$_keynotfnd, 

; & 0910 1 Lbr$_normal; 

:  =6489 0911 1 

; 90 0912 1 GLOBAL LITERAL 

; 0915 1 Lbr$k_libblocks = 10; 'Size of window into index 
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(same for each): 

is name of the source of the descriptor variables 
F is the offset to add to the relative block number f 
is the offset to add to the relative entry number f 


The code generated is conditional upon the existence of these parameters 


SETHILIMIT(OTHER 


SETRIAL (OTHER 


either + or -1. 
the entry number with a 
for movement off top or 


OTHER, BLOCKOFF ,ENTRYOFF) = 
CKOFF 5 


NAME (THISONE , *RBN*) 
ZNAME (THISONE, *ENT") 


RELSE ZIF ZNULLCENTRYOFF) 
RTHEN CHSMOVE(12, ZNAMECOTHER, ENT’), 


ZELSE ZIF NOT ZIDENTICAL(THISONE ,OTHER) 
ZTHEN SNAMECTHISONE,*RBN') = .2NAME (OTHER, 'RBN'); 


F ZIDENTICALCENTRYOFF ,-1) 
HEN IF amma yo *ENT') = y Watpbadientinatt 


ee eee ee ee ee 


SETENTRYDESC(TH 
ZIF NOT ZNU 
HEN 


ee ee ee ee ee eS SS) 
. . 


The following three macros are used to set the elements of a 
library table name descriptor relative to some other name descriptor 


CALLING SEQUENCE 
OTHER 


OFF) = ! Set_hi 
THER ,BLOCKOFF ,ENTRYOFF)%, 


: are taken (in order): 


( aken as a general expression 
as is ‘‘BLOCKOFF’’ and the entry an 
the desired descriptor are se 

are null, the entry, relati 


“BLOCKOFF’’ is null, “‘ENTRYOFF’’ is assumed to be 

ode is generated to increment or decrement 
ropriate checks 

ottom of the block 


ZNAME ( 
ZNAME ( 


ww 


Vv Neto Pa 
R.SRCJOLOLIB.B32;1 


gh Limit name descriptor 


OFF) = ' Set low Limit name descriptor 
R,BLOCKOFF ,ENTRYOF 


' Set the trial name descriptor 
RIAL, OTHER, BLOCKOFF ,ENTRYOFF) 


This macro does all the work for the above three macros. ? 
The calling arguments are the same except for the name of the descriptor 
whose elements are to be set. 


The ate hs compre 
if "BLOCK 
“ENT Te 
Y d rel. block fields of 
ve block and table address are 


Fully general expressions assumed so 
Set the block offset 
And the entry number 


! If both arguments are null so 
NAME (THISONE ,"ENT*)); ! copy entry number, rel blk 
; ' If not the same 
! Copy block number 


! If the entry number 
! Is being decremented 


Do it checkin 
Block down an 


ENTSPERBLK = 1; 
E Set to top of previous 


Otherwise leave rbn as is 


F 6 
LBR_OLDLIB 16-Sep-1984 2:59:17 VAX-11 Bliss-32 V4.0-74 Page 4 
162000 13-808-1 386 eT DLSKSVMSHASTER SELB SRCSOLDLIB.832:1 (3) | 
; 150 971 ! 
1 ars ZELSE ZIF BIpEWT ICA, CouTa yore +1? ! If incrementing the 
¢ 97 ZTHEN IF ¢ NAME (THI SONE ‘ENT') = ,2NAME(OTHER, : 
974 ENT'S + (ENTRYOFF)) GEQ i | 
4 975 ENTSPERBLK : 
5 are THEN BEGIN ! Entry then check for block | 
6 97 ZNAME (THISONE,"ENT') = 0; i Crossing up to next 
‘ 144: satan TP, ‘nen’? . ! And set to its first 
£6 38} _— 
61 9 § ZELSE IF (ZNAME(THISONE,*ENT') = .2NAMECOTHER, ENT’) ! If a general expre 
6¢ 9 + (ENTRYOFF)) LSS 0 ! Then have to check both 
6 984 THEN BEGIN ! Do it checking for crossin 
N : = - 1; ! Block down an so 
985 ZNAME (THISONE, ENT’) ENTSPERBLK = 1 ' Block d if 
4] ZNAME(THISONE,*RBN') = .2NAMECOTHER, ' Set to top of previous 
9 "RBN') = 1; } 
0 
0 
0 
0 
0 
0 
0 
0 
0 


Be Se Se Se Se SH Oe Se Se Se Se Se Os Os Ose Se Se SH Se Oe SH Se Se Se Se Se FSH Se Se eee Se Se Se esese 
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$4 

65 

€9 988 END ! Otherwise leave rbn as is 
68 989 ELSE IF .2NAME(THISONE,*ENT') GEQ ENTSPERBLK 

69 990 THEN BEGIN 

70 991 ZNAME(THISONE,*ENT') = 0; ! Crossing up to next 
71 338 ZNAME(THISONE,*RBN') = ! And set to its first 
rg 99 NAME (OTHER, "RBN') + 1;! 

7 994 END; 

74 995 xFI 

75 996 XF I 

76 997 XFI 

77 0998 2F I 

78 0999 ZIF NOT ZNULL (BLOCKOFF) 

79 1000 OR NOT ZNULL (OTHER) 

80 1001 THEN 

81 108 BEGIN 

Hi 100 perform(find_block(.windowbaseblk+.ZNAME(THISONE,*RBN'), 

8 1004 ockaddr, cache_entry)); 

84 1005 ZNAME(THISONE,'ADR') = .blockaddr + entrysize*.ZNAME(THISONE,*ENT'); 

85 1006 END; 

86 1007 xF I 

87 1008 %; 


6 ra . an = = 
ype p4pU18 18-Sep-1984 Mbeei se DERKSUMEMASTERSEVOR SRCSOLDLIB.B32:1° 2% cad 


7 
| 
; 189 1009 1 GLOBAL ROUTINE Lbr_old_lib_dat (header) = | 
i a i 
; 136 1 \¢ i This routine extracts the needed information trom the library | 
3; i 101 ' header of an old format (VMS R1) eprery and stores it ina 
; 1% 1g13 : block of memory (the last part of the library header) | 
: 13 1818 § wna | 
: 198 1018 header : REF BBLOCK; 
: 380 1920 3.8 
; 91 19 1 oldctx = headerCohd$t_oldctx] : BBLOCK; 
; 08 1998 LOCAL 
3 She 18 : index_desc : REF BBLOCK; 
: soe 1026 CHSFILL(O, of l$c_length, oldctx); 'Zero the block 
; 207 44 oldctx of ($l_mntvbnJ = ~headerLohd$w_mntvbn); 'VBN of start of MNT 
; 208 1028 oldctxCofl$l_mntesiz) = .headerLohd$w_mntesizj; 'Size of MNT entry 
; 209 1029 oldctxCofl$l_numods] = .headerCohd$w_mntallo] - 'compute number of modules 
; 210 1030 headerCohd$w_mntavalj; 
: 211 1031 2 IF .oldctxCofl$l_mntesiz) NEQ 0 
; si¢ 1038 THEN BEGIN 
, at 103 oldctxCofl$l_mntepblk) = 
; 214 1034 r$c poges ipo? oldce nto? tsi ante iz]; !Number entries/block 
ae it, 1035 4 oldctxCofl$l_mntbTksJ = (.oldctxlofl$l_nimods 
> 216 1036 4 + voldetxCot S$ antepbikj - 1) 
3 \ oer 3 om / .oldctxCofl$l_mntepblk); 
; 219 1039 $ oldetxLofl$t_gstvbn] = .headerCohd$w_gstvbn]; 'VBN of start of GST 
; 220 1040 2 oldctxfofl$l_gstesiz] = .headerlohd$w_gstesiz); 'Size of GST entry 
; 221 1041 oldctxlofl$l_numsyms) = .headerCohd$w_gstallo] - 
: $56 Ho headerCohd$w_gstavalJ; 
: $$7 1387 IF soldctxCofl$t_gstesiz] NEQ 0 
> 225 1045 oldctxCofl$l_gstepblk] = 
3 gee 1046 r$c pogesize/ oldcsxtof tSl_gstes{z2; '‘Entries/block 
B der 1047 4 oldctxCofl$l_gstbTksJ = (.oldctxCofl$l numsyas 
; 228 1048 4 = -oldetxtot ($\_gstepb J - 1) 
3 $$9 1049 3 / .oldctxlofl$l_gstepblkj; 
: 231 mi, 7 
; $$ 1936 i Set the number of indices into the header Location Lhd$b_nindex. 
3; 23 105 ! Note that this will overwrite the byte ohd$Sb_fmtlvl, whith is a 
: $ I3e constant used for sanity checkin and is not needed after this point. 
: 1936 header[Lhd$b_nindex] = (IF .headerCohd$b_type) EQL Lbr$c_typ_obj 
: 132 THEN 
3 1058 ELSE 
: $26 1060 3 ' 
: 261 1061 i Set the size of the module header user data into the header Location 
: ri} 1 § ! thd$Sb_mhdusz. This Lies in the reserved space in the memory-resident 
: rb ’ o7 header. 
> 245 1968 header({\hd$b_mhdusz] = (IF .headerCohd$b_type) EQL Lbr$c_typ_obj 
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! 
i Set the total number of index entries into the header location 


! UndSl_idxcnt. This Lies in the reserved space in the memory-resident 
! header. 


header Clhd$l_idxcnt] = .oldctx Cofl$l_numods] + .oldctx Cofl$l_numsymsJ; 
header Uhd$l_modcnt) = .oldctx Cofl$l_numods]; 


i Se up phony index descriptors with only the keylen field filled in. 
This is so make_upper_case will work. 


index_desc = .header + Lhd$Sc_idxdesc; Point to first descriptor 
index_desc fb iddeu_key lend = Ofl$c_maxsyming; 

index_desc Lidd$Sw_flags] = idd$m_ascii; !Set type to ASCII 
index-desc = .index_desc_+ idd$c-length; 'Now the second 
index_desc Cidd$Sw_keylen] = of l$c_maxsyming; 
index_desc Lidd$Sw_flags] = idd$m_ascii; !Set type to ASCII 


RETURN true 
END; 'Of lbr_old_lib_dat 


-TITLE LBR O1Dt 18 
IDENT \v0%-000\ 


LBRSK_LIBBLOCKS== 10 
.EXTRN FMGSMATCH_NAME, FIND BLOCK 
~EXTRN READ BLOCK, READ_N BLOCK 
“EXTRN GET MEM, DEALLOC~MEM 
“EXTRN LBRSGL_CONTROL, CBR$_KEYNOTFND 
$_NORMAL 


“EXTRN LBR 
.PSECT $CODE$,NOWRT,2 
0OFC 00000 -ENTRY LBR_OLD_LIB_DAT, Save R2,R3,R4,R5,R6,R7 
04 AC DO 00002 MOVL HEADER, ~R7 
56 015A C7? 9E 00006 MOVAB 346(R75, R6 
00 6E 00 2¢ 900 MOVCS #0, (SPS, #0, #104, (R6) 
66 1¢ =A? 3C 0001 MOVZWL 28(R7), (R6) 
04 Ab 1A A? «-3€ 0001 MOVZ2WL 26(R7), 4(R6) 
50 1 A? 3C O001C MOVZWL 30(R7). RO 
31 20 «AZ 0 MOVZWL 32(R7). R1 
A6 0 51 C3 00024 SUBL3_  R1, RO. 8(R6) 
06 AB OD 6 9 TSTL 4(R6) 
18 1 ¢ BEQL 1$ 
A6 00000200 = BF 06 AB C DIVL3 4(R6), #512, 16(R6) 
50 08 Ab 10 a6 C1 6 ADDL 1e(R65, B(R4), RO 
50 07 F DECL. R 
Ab 50 10 Ag 7 0004 DIVL 18(RG), RO, 12(R6) 
1c (AG “a 66 46 1% MOVZWL ; (R7). : {r6) 
20 Ab 12 a? 3¢ 4B MOVZ2WL 18(R7). 32(R6) 
‘ 1 A? 3¢ 3 MOVZWL : (R7). R 
51 18 A? 3C 00054 MOVZWL 24(R7). RI 


| S 8 


Page 


VAX-11 Bliss-32 Neto, 
DISKSVMSMASTER: CL8R.SRCJOLOLIB.832;1 


A 
I 


d-se-1984 99:59:17 


1 
1 


3 SSSR $ 3% Xk3a8e53 
& ooooo oo cS SCOOCOOoOCooOoO 
- Serene Se co ce oe ok eh eh el 
A ee ek ed ed ee ee ee ee ee ee ee eB i a i i i id 
~ + 
~ ~ ~ 
~ Ls 4 ve wo 
Oo - won w 
co - Oo Mw ww 
~-~a wo o wa ao 
w a - at t 
Ts = o< x 
~ ~ oOo wa KOU 
eo “Oo w at wane 
a Na worazwZa 
a eo s aewZz~a- 
Le] wo oO avorw w&- 
a) 2m ~ ~oOer = 
- hae ec =— = was 
. es. te arn oO ~s ASK ae 
on Aan Ue o ow a on HVT ZO 
qeqwowoo oOo: @&@ @e + 2o0o-Zco-or 
ec ec en ~ . corm mM 
w~S~Se ewe lf ow > a ed ww~@wom a « 
HVA TOST FTAHANUNA—-—OTZH- HOOOY OATH — 
Qu + Te MBTR2aI~-eMmBOTAEMO- BRVBVzW 


~m men Mm ~” 2 ~N 
aJtiIOogon iI0MO04y 380M IjIIKtIIIH4 
@O-oar>->oav-awr>@>r>aw>@aar>a>>r>ar>>r 
2Mw-Ow EF ZOcCoostzZzoadc soooooaoodw 
M--DOtoovOzTOFEZYOLOVEAETEIZEAIEEoO 

PP AAD Fo 

~N mas mo 
DOOV VN. £ OLN. ODWOMME Our. VMOOO 
WNOOOrf-hr-h- hr DOOOASA ec OoOow 


SOSOOGOOOOOOSOOOSOOSOSOOOOSOoOoOSoSoSoSo 


MINIM F-F- -— VO- OOK NOK FT Or-oOwoooory 
VO—- VYVOVO — O-— OBO — OF AAV AGP OY AAS 


—ODODOOO NOM OR. Ne MOO OO & Tue 
Wi TAIN TOOOOOMN OO - OWN F< CVDOWDO 


o ov ww TvoTren — 
NN TN MN NOVO CO 
oo oOo 
coo oOo 
- 
o Oo 
o So 
o Oo 
Oo uo O- OC OF OC Or COOCCO 
nm oat mown mato wr <a anonown 
ow _ vow 
om Oo mow 
~N 
o 
So 
o 
oe 
oOo 
oO woo oO ~ 
< «qn < <= 
wv v [.°] <x 
Nm N N Oo 


193 bytes, Routine Base: S$CODE$ + 0000 


; Routine Size: 


voc=000- 1b-sep-1964 MeFi, UISKSUMGRASTERSCLOR SRCSOLDLIB.832; 19%" (56 


; 270 1089 1 GLOBAL ROUTINE lbr_old_lkp_key (keydesc, retrfa) = 

: 574 1990 > SEIN ie 

: ef 1091 14+ 

; a 1036 FUNCTIONAL DESCRIPTION: 

: ie 1994 This routine searches one of the indices of an old format Library. 

s ef 1998 i INPUTS: 

3; 278 109 i 

; e279 1098 i keyname - address of a descriptor for the key to find 

; Ms 1923 retrfa - address of storage to return RFA of module if found 

3 ag 1391 ROUTINE OUTPUTS: 

: 2846 1108 i The name is found in the search table: 

; 285 1104 i routine value = true 

; 286 1105 i If name is not found routine value = false. 

: 287 1106 i 

; 288 1107 ! 

3 $89 1108 in 

; 290 1109 

3; 291 1110 MAP 

: 4 1111 keydesc : REF BBLOCKCdsc$c_s_bln], 

: 29 BLY retrfa : REF BBLOCKErfa$c_Cength): 

3 294 111 

; 295 1114 BIND 

; 296 1115 namblk = .lbr$gl_controlClbr$l_usrnam] : BBLOCK, ! NAM block for Library 

; 297 1116 2 context = .lbr$gl_controlClbr$l_ctxptr] : peek Ock . ' Librarian context block 
; 298 1117 2 eader = .lbr$gl_controlClbr$l_RAdrptrd : BBLOCK, ' Library header 

: 299 1118 oldctx = headerCohdSt retdees) ? BBLOCK ' Context for old library 

: 300 1119 xnum = ,lbr$gl_controlClbr$lt “curidx] - 1, ! Index of selected index 

3; 301 1120 idxdat = ( ! Name the index data 

3 $0 1121 ; IF idxnum EQL 0 i 

; 30 1156 THEN” oldctxCofl$l_mntvbn] i which is the mnt if index 0 

3 Soe 1123 3 ht oldctxCofl$l-gstvbn] ! or the gst if index 1 

s 305 1124 2 »: i and is a ebrusture 

: 306 1125 § entrysize = “Tasatenn esiz], i size of an entry 

3 Sor 1126 entsperblk = .idxdatCoib$T_entpblkJ, i pusher entries in a block 

3; 308 1127 srchbaseblk = .idxdatCoib$l_vbn i e vbn of search 

3; 309 1128 srchtopblk = “sr Schnaeekth + ~YdxdatCoibst pm a - 4 > ! top vbn of search 

; 310 1168 topblkents = ( 

: 311 1130 IF slender totest anon s] Sih entsperblk 

: \ 1131 THEN .idxdatCloib$l ponte 

; 31 1136 ELSE Se oe oib$l-n 

3 3 1} 2 4 , entsperbikt(. TdxdatCoibst _nblks] = 1) 

: 316 1138 windowbaseblk = oldctxCofl$l_winbvbn], ' Base VBN of window 

s 317 1136 windowtopblk = oldctxCofl$l_wintvbn], i Top VBN of window 

; 318 1137 windowblocks = oldctxCofl$l_winblksJ, i Size in Slecks of window 

: «4319 1138 trialent = oldctxCofl$l_trilent], i Trial table entry mymper within block 
: 320 1139 trialrbn = oldctxCofl$l_trilrbn location of entry within yinéow 
3 321 1140 trialadr = oldctxCofl$l-triladr) : REF BBLOCK, ? “Relator to entry in table | 
3 $$ 1141 lLolimitent = oldctx{ofl$l_lowent), "Lowest possible name entry 
ws. 1148 Lolimitrbn = oldctxCofl$l~lowrbnd, i Rel. blk number in window 
3; 324 114 lLolimitadr = oldctx{ofl$l_lowadr] : REF BBLOCK., : ane its address in table | 
; 325 1144 hilimitent = oldctx of tat pientd. hi ghest possible name entry 

; 326 1145 hilimitrbn = oldctxlofl$l_hirbnJ, rel. blk number in window 
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: f 1146 hilimitadr = oldctxCofl$l_hiadr] : REF BBLOCK; ! and its address in table ; 
: 329 1148 ¢ LOCAL ; 
3 0 114 cache_entry, : 
; 1 1150 blockaddr ; 
; 2 1151 trialblockoff, ; 
; 11 § entryoff, $ 
; 11 ch_result, ; 
3 5 1154 mover ea. ! direction movement control ° 
; § 1382 readwindow; ! window read flag : 
; 3 1137 {f« idzdetCotest_ebledrd EQL 0 ! If index has not been read : 
: 340 1159 IF .idxdatCoib$l_nblks) EQL 0 ! but if nothing in index r 
> 341 1160 THEN RETURN Tbr$_keynot fnd; ' then return key not found 

; *g P 1161 perform(read_n_blockT, idxdatCoib$l_vbnJ, ! then read it now 

: 34 1166 - AGudattoibslnblksJ)); 

; rf: 1367 léxdotlotbst_cthledr = 1; ! flag index read 

; 349 HY moveflag = 0; cyees the ad na of test read 

3 ! e current window is 

; 348 1167 yr tees Scorching for key !AS', .keydesc); 

; 349 1168 IF .windowbaseblk GEQU srchbaseblk ! completely within the search 

s $20 139% ie .windoutopo lh LEQU srchtopblk ! range or contains it 

; 326 1171 BEGIN ! compare target symbol 

3 3. 1176 ; perform(find_block(.windowbaseblk+.trialrbn, blockaddr, cache_entry)); 

; 354 117 ! write('Looking at Pay 'AD',.trialadrCone$b_naming), trialadrCone$t_nameJ); 

3 39? 1174 4 IF (ch result = CHSCOMPARE(.keydesc(dsc$w sengtns -keydesc(dsc$a_pointer], 

3 $28 Ee ; .trialadrLone$b_namlngJ, trialadrLone$t_name])) EQL 0 

: 358 1177 4 ! with last trial 

; 339 1178 4 retrfa(rfa$l_vbnJ=.trialadrCone$w_modvbnJ; ! and if equal zR 
; 360 1179 4 retrfa(rfa$w_offsetJ=.trialadrlone$w_modbytof fi; ! compute module's 

; $0 Bt + 2 — Lor$_normal; ! rfa and return 

: 368 1136 ; ELSE IF .ch_result LSS 0 

: 1183 2 BEGIN trialent EOL 0 Fone 18 teiel 

; -trialen ' an ria 

3 $07 1186 4 AND.trialrbn EQL 0 ! is first in window 

3 os Bt ? THEN readwindow = -1 ' then set to read backwards 

HBG 0 ean = Tchuee 

: 372 1191 5 sethilimit(trial,,-1) ' and not first in window 

; 373 119¢ 5 setlolimit(lolimit,0,0) i Low Limit is the first 

: «374 1193 5 moveflag = -1; ' set for moved backwards. 

s 375 1194 4 END; ' and entry before the trial 

3 8 1132 $ 7 ! is the highest possible 

; A] 1197 ? BEGIN ! target is greayer Soom inte aed 

; ' than last trial . 

3; 380 1199 4 IF ,trialrbn EQL .windowblocks-1 ! Last in window, set 

s Se 1200 5 AND(.trialent Fpt entsperblk-1 

; 3 1201 6 OR(.windowtopblk EQL srchtopblk 

: 38 1202 5 AND.trialent EQL topblkents-1)) 
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> 384 1203 4 THEN readwindow = 1 ! to read next window ; 
: 385 1 Re 4 ELSE : 
3 56 1205 BEGIN ! greater but trial is not : 
; 1 96 readwindow = 0; ! last in window, so : 
; 388 120 IF .windowtopblk EQL srchtopblk ; 
; 389 1208 2 THEN entryoff = topblkents -1 : 
; 390 1209 ELSE entryoff = entsperblk <1; : 
; 391 P 1210 é sethilimit(hilim it, windowblocks-1, ! high Limit ig top of | ; 
: 3g 1211 -entryoff) window and : 
; 39 1 i 2 setlolimit(trial,,1) ' lowest * poss ible is trial : 
; 394 121 moveflag = 1; ! set as moved forward 

; 395 1214 4 END; ! plus 1 

; 396 1215 ; END; 

: 397 1 1 END 

; 398 121 ELSE 

; 399 1218 BEGIN ! current window is 

; 400 1219 readwindow=1; no use, set to 

: 401 1220 windowtopbLk= srchbasebLk-1; read the first 

; 40 1282 ; WHILE true DO ! begin an infinite loop 

; 404 122 BEGIN 

; 405 1224 ; IF .readwindow NEQ 0 ' another window to be read? 

> 406 15$? THEN 

; 407 1226 4 BEGIN 

; 408 1227 4 IF .readwindow LSS 0 ! if flag negative, read 

: 409 1228 4 ' backwards, provided last was ; R 
; 410 1229 4 vee Li ca neretion St ' not . forward move 

3 ai3 1530 : RETURN bese 9h ae ! in which 

3 aig 1232 5 BEGIN !' case name cannot be here 

: 414 1233 5 IF eu indovbasodit EQL srchbaseblk ' also if back at first window 

3 6415 1234 5 THEN RETURN Lbr$_keynotfnd it's all over 

3; 416 1235 5 windovbaseDLk> .windgwbaseblk~_ ! otherwise oat up the 

: 417 1236 5 r$k_libbloc ! window as full 

; 418 1237 5 cedueedhidin atadamtehion pietedbeias ! since must have been 

3s 419 1238 5 ! one before 

: 420 1239 5 move flag=-1; ! at base of search range 

3: 421 1240 5 END ! remembering this fact 

: 422 1241 § ! read next —- up in 

3; 423 1666 4 ELSE IF perel\ oe LSS 0 : the search range, provided 

3 : : \¢¢7 ? ee RETURN lbr$_keynotfnd i we haven't reached the 

; 426 1245 5 BEGIN ! end alcoady and provided 

: 427 1s66 5 ! did not reverse last time 

; 428 1247 § t .gucotestous lk EQL orgncenets ! 

: 429 1668 5 THEN RETURN Lbr$_keyn ! in which case name cannot be here 

> 430 1249 5 windowbaseblk = “ut dontopbtk +1; ' set block range of 

3 431 1250 5 windowtopblk = ge ert Ae eps ! new window to next and 

3 $36 1251 6 (.windowbaseblk+ 

; 43 1 24 : Lor$k_ Libblocks-1)); ! perhaps last of range 

: $3 ! 37 ? moveflag=1; ' for next time to suppress backup 

: 436 1255 4 windowblocks = ig ingoutopb lk - .windowbaseblk + 1; ! calculpte number of blocks in window 

3; 43 1256 4 setlolimit(loli low Limit on searck is first entry 

> 438 1257 4 IF_.windowtopblk “hor” srchtopblk 

3; 439 1258 4 THEN entryoff = topblkents -1 

3 440 1259 4 ELSE entryoff = entsperblk -1; 


yoczO00T 16-Sep-1984 MeFi, UUEKSUMBMASTERSCL OR SRCSoLDLIB.832;1 9%" 4} 


441 60 sethilimit(hilimit, .windowblocks-1,.entryoff) igh Limit is the last 
44 61 setrial(hilimit,,) 4! initialize the Last trial 
44 END; ! and all set to search it 


we now have a valid window and the highest and lowes? possible 
entries in this window have been set. 

now compare the target name against these Limits 

and if ouotse set up for a window re 

if between, begin binary search with adjusted Limits 

and a trial - f way between. 


per form( find block(. windowbesge tke, hilimitrbn, blockaddr, cache _entry)); 

} Grite(: High Tim 3 , took at !AD' hilinitadrConesp _namingJ, 

; imi itadrConest aoe po 
IF (ch. resyit = cHsc0 MPARE (.keydesc dsc$w length], shovdesc) dscsa.. pointer], 
— orein LimitadrCone$b naming), hilimitadrCone$t_name])) EQL 0 


retrfa(rfa$l_vbn] = .hilimitadrCone$w_modvbnj; 


retrfaCrfa$w_offset] = .hilimitadrCone$w_modbytoffJ; 
— Lbr$_normal; 


END 
ELSE BEGIN 
IF .ch result GTR 0 


THEN readwindow = 1 
ELSE BEGIN 
IF .hilimitrbn EQL 0 
AND .hilimitent EQL 0 
igi readwindow = -1 
per form(find_block(. windeebooepthe. nad pha blockaddr, 


ache ry)); 
! write(’Lolimit book at_!AD‘ ,-toliaitadrConesb naming], 


if required name i 
equal to upper Lim 
return the rfa 

of top Limit entry 


PY oF ot ot ot ot ot ot to 
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i high Limit 

+ greeter than top 
ifn t, then set to 
read next up 
if less than high 
Limit, and high Limit 
is first in window 
then set for first 
window read 
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476 ! lo Limi tedrConestn me)); 

477 IF (ch result = CHSCOMPA RE(? keydes¢ dsc$w_length], sheydesc | dseSe., pointer], ! ot 
478 olimitadrlone$b. naml ng to with lL low Limit and 

479 io LimitadrLonest _named) Ear 0 if equal, return 


THEN BEGIN ' rfa now 
retrfaCrfa$l_vbn] = - LolimitadrCone$w _modvbn); ! 
retrfa ofety offset] = - lLolimitadrlone$w _modbytoff); 
setrcett Lolimit ! and remember it for next t 
RET : URN Lbr$_ canis 


EN 
ELSE if -ch_result LSS 0 ' not equal but if less, set 
THEN réadwindow = -1 ! {pret window. 
ELSE IF ool tareren EQL reater than 
' 
' 


DO00 000000 0009090909 09 09 09 09 09 SII NINN NN NOOO OOOO 
FUR 9 OONAUE WIN $9 ODNAUE WN $9 OONAUES AR (OO ONAULS Ww 


ndowblocks=-1 t Tk Ate provided 
AND (. Lol initent EQL entsperblk-1 ' that is not last 
OR ua D rtotimte blk Ea "arehn blk ! of window, the 
olimitent EQL topblkents-1)) 
THEN am... = ' block (set read up) 
ELSE EXITLOOP; ' we have the window 
END; ' containing the re- 
quired name, if 


END; 
t is in table 


Se Se Se Be Se Se Ge Se Ge Ge Se FF Se Ge Ge Se Ge Se Ge Ge Fe Ge Ge Ge Ge Gs Ge Se Ge Se Ge Se Se FOSS Oe Se Se Se Se Se SeSe Se Fe See Se Sse Sees Fe eeeeese 
> 
io 
oO 
ame ee ee ed ed td od wd 2 dd dd 
AANA ANIA AI AAAI AI AAAI AI AISI RIP POPIPOPIPINIPINPINDNINININIPUPIPYINININPINPIPIPIPIPIPPUPIPUPIPUPUNINYNIPUNIPY 


WERANAARNONA RAO NNN NNOOAOAOAOUUIUUIULE BEE EEE BE RUE WWW 


tt ot od od ed I OOOOOOCOOO 


OUSWN—OOCOnNOu 
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] 
i 


VO4 
; 498 1317 END; : 
; 499 1318 : 3 
; 500 1319 ' now begin binary search of the window, after adjusting ; 
; $01 1520 : low Limit up one and high Limit down one; unless they . 
3 206 1321 ' are the same, in which case required name is ; 
; 1 ¢ ' not here. ; 
> 504 1 ! : 
; $05 1324 IF .lolimitadr EQL .hilimitadr ; 
: 506 1325 THEN RETURN Lbr$_keynotfnd; ’ 
s or 1 $ setlolimit(lolimit,,1) ! Limits are not same, so : 
; 508 1 F .lolimitadr NEQ ,hilimitadr : 
; $09 1328 THEN sethilimit(hilimit, .-1) ! increment low and decr.hig : 
; 510 3 9 ILE .lolimitrbn NEQ .Ailimitrbn i Loop until we have both ; 
3 3 1330 DO BEGIN ! Limits on the same block : 
3 21g 1331 3 trialblockoff = (.hilimitrbn-. lolimitrbn+1)/2; ! calculate a trial entry : 
ae). 1336 3 IF (.lolimitrbn+.trialblockoff) EQL ! half way between ; 
; 514 133 4 (,hilimitrbn-.trialblockoff) ! that is, middle 
s 319 1334 3 THEN entryoff = (entsperblk+1)/2 ! entry of midblock 
; 516 ia50 ! or first entry of 
3 «(USI 1336 3 ELSE entryoff = 0; ! midpoint higher 
; 518 1337 3 ! block if mid point 
; 519 1338 3 setrial(lLolimit,.trialblockoff+.lolimitrbn, .entryoff) ! is a block boundary 
; 520 P 1339 3 perform(find_block(.windowbaseblk+.trialrbn, blockaddr, 
s Sei 1340 3 : cache_entry)); 
3 See 1341 3! write('window search look at !AD',.trTialadrCone$b_namingJ, 
; 523 1346 at trialadrCone$t_name)); 
; 524 1343 4 IF (ch result = CHSCORPARE (- keydesc( dsc$u Length], -heydesc(gacSe_pointer). ! compare re 
3 dee 134, 3 .trialadrCone$b_namingJ, trialadr[fone$t_name])) EQL 0 ! "and if equal, set 
; 526 1345 4 THEN BEGIN ! up return values 
3 der 1346 4 retrfaC(rfa$l_vbnJ=.trialadrCone$w_modvbnJ; 
; 528 1347 4 retrfalrfa$w_offsetlJ=.trialadrlone$w_modbytoff]; 
; 529 1348 4 RETURN Lbr$_normal; ! and all done 
; 530 1349 3 END; 
3 Zor 1350 3 IF .ch result GTR 0 ! if the required is greater 
; a3¢ 1351 4 THEN BEG] : ! Lolimit to trial+1 
, De 1352 4 setlolimit(trial,,1) 
3; 534 1353 4 
s $35 1354 4 ELSE BEGIN : ' if less. update 
; 536 1355 4 sethilimit(trial,,-1) ! high Limit to 
3 Sor 1356 3 END; ' trial-1 
: 538 1357 2 END; ! end of loop 
: 539 1358 2! : 
; 540 1359 2! both Limits are now on the same block. start half wey | 
; 541 1360 : between Limits and step toward high Limit if target is 
3 24§ 139) greater, toward low Limit if target is less. | 
> 344 1363 setrial(lolimit,,(.hilimitent~. lolimitent)/2) ! set trial at mid 
3; 545 1364 moveflag = 0; ' point entry and clear dire 
: 546 1365 DO BEGI ! loop until we hit the Limi 
3; 547 P 1366 perform(find_block(.windowbaseblk+.trialrbn, blockaddr, 
; 548 1367 fache.enery 3 
: 549 1368 : write("Final look at !AD', .trialadrlone$b_naming), 
; 550 136? : trialadrCone$t_name)); 
3; 551 1370 4 IF (ch_result = CHSCOMPARE(.keydesc(dsc$w Length. -heydescldscSe_pointer], ! if target 
; 226 1371 -trialadrCone$b_namlng], trialadrfone$t_name])) GIRO ! greater than the | 
: 1376 THEN IF .moveflag Eat - ! trial, and were moving 
3 554 137 THEN RETURN Lbr$_keynot fnd ! backwards = not he 


| 
| 
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3 5 1374 4 ELSE BEGIN ! otherwise move 
3 ° 1375 4 movet og = 1; ! forward to next 
: 22 ' 4 setrial trial,,1) i entry. 
; 9 1378 3 ELSE IF .ch_result EQL 0 ! if target is equal to the 
: 560 1379 & THEN BEGI ! then return the parameters 
; 561 1380 4 retrfa(rfa$l_vbnj = or toledriengsu gedvin?i 
; o¢ 1381 4 retrfalrfa$w_offset] = .trialadrlone$w_modbytof fl; 
; er : ¢ ? — Lbr$_normal; 
; 565 1384 ; ELSE IF ppovet lop EQL 1 ! target symbol is 
3 28 1385 THEN RETURN LOr$_keynotfnd } less, so if we wer 
; 56 1386 4 ELSE BEGIN ! moving forward - name 
; 568 1387 4 moveflag = -1; ' not here. otherwise 
; 569 1388 4 setrial(trial,,-1) ! move back one 
3 ef9 1389 H 
: 71 1390 END 
; 276 1391 UNTIL .trialent EQL .lolimitent !' loop until at the low 
; th : , OR .trialent EQL .hilimitent; ! or high Limit 
3 $79 1392 ! trial entry is at one of the Limits. check for 
: 278 139? } a match and return values 
; 578 1397 : write('End of Limit check on !AD', .trialadrlone$b_namingJ, 
: 579 1398 ! trialadrCone$t_name)); 
; 580 1399 IF CHSEOL (.heydeseldseSu_LengthJ, sheydes Cdsc$a_pointer], 
; 581 1400 -trialadrCone$b_naming], trialadrlone$t_name]) 
: one 1401 THEN BEGIN 
3 38 1on8 retrfaCrfa$l_vbn] =_.trialadrlone$w_modvbn); 
> 584 1403 3 retrfa(rfa$w_offset] = .trialadrlone$w_modbytoff); 
; 585 1404 3 RETURN Lbr$_normal; 
; 586 1405 3 END 
; 587 1406 2 ELSE RETURN Lor$_keynotfnd; 
; 588 1407 1 END; 'Of lbr_old_lkp_key 
OFFC 00000 ENTRY LBRAOLD ALKP_KEY, Save R2,R3,R4,R5,R6,R7,R8,-; 1089 
5€ BB AE YE 00002 MOVAB <-72(SP), SP : 
51 00006 CF DO 00006 MOVL_  LBRSGL_CONTROL, R1 : 1115 
50 OA Al 0000015A BF C B38 ADDL #346, TO(R1), RO : 1118 
51 12 Al 1 ( 14 SUBL3 #1, 18(R1), R1 : 1119 
F 19 BNEQ 1$ 3 115) 
52 33 OS 18 nent RO, R2 3 1122 
38 1c 6AO 9E 00 5 1$ MOVAB $5RO), R6 s 1123 
56 D & MOVL R6, R2 : 
4 AE 04 A2 Dd 7 2% MOVL 4(R2) 36(SP) > 1125 
0 AE 10 A2 D C MOVL  16(R25, 32(SP) > 1126 
C AE 62 D 1 MOVL_  (R2) 60(SP) > 1127 
51 C AE oc A ¢ 5 ADDL3 TeCRe), 60(SP), R1 > 1128 
$f AE FF A E 00 MOV =1(R1),_44(SP) : 
0 AE 08 As } 8 4 CMPL gine). 32(SP) : 1130 
0 4 4 BGTR $ : 
| 
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: - 4.0-74 Page 16 
~Sep-1984 01:59:17 — VAX=11 Bliss-32 v4, aa de 
vives ee 16-Se0-1984 ON Ri Ls DT EKSUMEMARTER SEVER Sec SOLDLIB B | 
V04= | | 
6 BE BS SREP its HOC, aucee 43 
~, gf 2 ee Bs paar! 
an 4(SP), aO(SP), RO : 
4 179 ADDL3 @ . ; 
Sete ae PO jen BR tel ss 
4 RET ; | 
Teer hoe ee A 
35 GE ses ary Bb 1 MOVL #1, MOVEFLAG 1213 
“hi 2 0 0051 Shs: oy 298 DWINDOW : 1219 
ye A be 2 ore AR ness) (R11) : 1220 
om ae AC OO 00921 298: OVE” KEVDESC. RP : 12% 
, % AE pe $0 5 $3: Ist READWINDOU ; 
a a a = 
1D 18 0220 31$ BGEQ od 1227 
38 «AE «DS O02eF TSTL MOV ; 
OU HBG os, Bat BE ee 
3C AE 00 salt D4 99 t 33: CMPL a0(SP), 60(SP) = 
ffi oh a oe ie 
6B 28 «BE &S 0024 SUBL2 a4 Pe (Rt : 1339 
38 AE 01 CE 00 46 MNEGL “, 4 1338 
38 a D5 ao94¢ 34$:  TSTL ROVEFLAG | 
eS 19 0024F BLSS 32$ ela Yes 
2c OA 6B D1 00 51 CMPL (Rit ‘ ; 7 
BDF 0838 RpDL #1, (R11), a0(SP) : 1249 
‘ oe 63 ET bose AD L3. #9. aO(SPS, R1 ; 
=F BE 9 C1 0025¢ ADD “cB0(SP) 
” ” 50 2c «AE 00 00 61 MOVL a4 SP), 
" 33 . 60 68 BLEQU 35$ ; 
0 0026A MOVL 1, RO Scone 
28 2 8 : RO, (R11) : 1250 
3 i oO §g$8 — HOVE #1. MOVEFLAG : : 1933 
= ¢ 00 8B pg 0274 36$:  SUBL3 a0(SP), (R11), R 
- 28 Se 01 ti 9E 00279 ROVAB 1<RO) , a E1256 | 
1 BF Me 6 fi CLRL a20(SP) mr ; | 
af te AE OSE ROVAR BLOCKADDR. : 
3. ae ee. 6 se ADDL3 a4(SP), a0(SP), RO ; | 
” = - 00886 $5 0 $e BSBW FIND BLOC ' | 
+3 30 EP 80 38 BULLS SootseS (SP), RO ; 
” ¢ OBE te BEL §? MOVAB @BL OCKADDR RO], @28(SP) ; 1287 | 
£ & BT 13 CMPL = (R11), 44(S ; | 
— BBE, FP coc, exter = 
" = 8 5 AF BRB 38 S 1059 
:  SUBL3 #1, 32(SP), ENTRYOFF : 1359 
; £ Bp He tts #1, a40(SPS, a8(SP) 
08 a 3 BE 1 3 0286 ae: SUBL 


F 7 
LBR_OLOLIB 16-Sep-1984 01:59:17  VAX=11 Bliss-32 V4.0-74 Page 17 
v04 18-808- 138 a te DIEKSVMEMASTERSCLBR SRC SOLDLI8.832; 1 . nid 
A 56 0 0028¢ MOVL _—ENTRYOFF, (R10) , | 
é 40 AE 9E 0028 MOVAB CACHE _ENTRY, R2 : 
44 OAL F C HOVAB BLOCKADDR, R1 : | 
50 00 BE 08 g ¢ ADDL3 a8(SP), aO(SP), RO : 
00006 £D BSBW FIND BLOCK : 
3E E D BLBC_ STATOS, 40$ : | 
50 24 «AE 6A D MULL3 (R10), 36(SP) RO : 
18 «BE 44 BESO i D MOVAB BB, OCKADDR ROS, a24(SP) : | 
68 A 0c DE MOVC3 #12, (R10), (RB) + 1261 
2 40 AE SE 002E MOVAB CACHE_ENTRY, R : 
51 44 Ag H: 6 MOVAB BLOCKADOR, A1 : 
50 00 BE § 9 EA ADDL (R9), a0(SP), RO : | 
00006 30 O0EF SBW Ss FIND BLOCK : 
60 E9 00 Fe BLBC_ STATOS, 45$ : 
50 24 AE 6 ¢3 OoF MULL3 (RB), 36(SP), RO : 
C BE 44 BE4O SE OOZFA MOVAB @BLOCKADDRIRO), a12(SP) : 
40 AE 9E 00300 39$:  MOVAB CACHE ENTRY, R2 t 1271 
51 44 AE SE 00304 MOV BLOCKADDR a1 ; 
50 00 BE 08 BE cr 0308 ADDL3 a@8(SP), aO(SP), RO ; 
00006 30 0030E BSBW FIND BLOCK : 
41 50 £9 00311 40$: BLBC  STATOS, 45$ : 
54 18 BE 00 00314 MOVL  a24(SPS, R4 : 1275 | 
50 04 Ad 9A 00318 MOVZBL 4(R4), RO F 
55 01 pO 0031C ov. ai, R§ : 
50 00 04 B87 04 2 2D 0031 CMPCS @KEYDESC, @4(R7), #0, RO, 5(R4) : 
03 1A 00328 BGTRU 41$ ; 
55 01 09 0032 SBWC OO C#'1, RS : 
30 AE 55 06 00320 41$ MOVL RS, CH_RESULT ; 
05 12 00331 BNEG 42$ : 
0304 31 00 3 BRW 84$ : 
03 15 00336 428:  BLEQ  43$ + 1283 
009D 31 00338 BRW 51$ : 
08 BE D5 00 38 43$:  TSTL  a8(SP) + 1287 
04 12 00 ; BNEQG  44$ : 
6A 05 0034 TSTL (R10) + 1288 
67 13 00342 BEQL 49$ F 
52 40 AE 9E 00344 44$:  MOVAB  CACHE_ENTRY, R2 : 1293 
51 44 AE 9E 00348 MOV BLOCKADDR, R1 : 
50 00 BE 04 BE 4 034 ADDL3 a4(SP), aO(SP), RO : 
00006 30 0035 BSBW FIND BLOCK : 
40 50 £9 00355 45$:  BLBC  STATOS, 47$ : 
54 1¢ BE 00 00 3 MOVL  a28(SPS, R4 : 1297 
30 06 A4 9A 00 MOVZBL 4(R4), RO : 
01 BO 6 Lowi, RS > 1298 | 
50 00 04 87 4 Bt D 63 CMPCS  @KEYDESC, @4(R7), #0, RO, 5S(R4) : | 
3 1A 0036C BGTRU 46$ : | 
55 1 09 oF SBWCOi#1,, RS : 
30. AE 5 D 46$:  MOVL RS. CH_RESULT : 
» 4 43 BNEQ 48§ F 
50 08 AC p 7 MOVL RETRFA, RO > 1300 
60 64 7B MOVZWL (R4), ¢ : 
04 AO 02 A4 7 Ve 2(R45, 4(RO > 1301 
68 14 5 0c MOVC3) #12, @20(SP), (RB) : 1302 | 
40 AE 9E AB CACHE_ENTRY, R : 
1 44 AE 9E C MOVAB BLOCKADDR, &1 : | 
| 
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LBR_OLDLIB 16-Sep-1984 01:59:17 VAX-11 Bliss-32 V4.0-74 Page 19 
Vbe=ob0 197808- 1382 Pas tae DISKSVMSMASTER:CLBR.SRCIOLDLIB.B32:1 © Aid 
50 08 BF B C3 0046A SUBL3 TRIALBLOCKOFF , as(sP), RO : 1333) ; 
1 : 46F CMPL =séoRT, R : ; 
8 472 BNE 1 : ; 
50 20 A C1 00474 ADDL3 #1, 32(SP), RO + 1334 F 
56 5 C7 00479 DIVL3 #2. RO, ENTRYOFF : ; 
11 0047D BRB : : 
D4 0047F 61$:  CLRL. ENTRYOFF + 1336 : 
69 5B 04 BE C1 00481 62$:  ADDL3 a4 (SP) TRIALBLOCKOFF, (R9) + 1338 : 
DO 004 MOVL  ENTRYOFF, (RS) : ; 
40 AE 9E 04 MOVAB CACHE_ENTRY, R2 : ; 
44 =O H 48D MOVAB BLOCKADDR a1 : : 
53 00 ef ‘ C 04 1 ADDL (R9), a0(SP), R3 : ; 
b0 496 MOVL R3, RO : ; 
00006 049 BSBW FIND BLOCK : : 
6B 50 £9 0049¢ BLBC_ —- STATOS : ; 
50 24 «AE 68 C5 0049F MULL3 (RB), 36(SP), RO : ; 
Oc BE 44 BESO SE 004A4 MOVAB @BLOCKADDR(ROJ, a12(SP) : ; 
40 AE 9E OO4AA MOVAB CACHE ENTRY, R2 + 1340 ; 
51 44 AF H O4AE MOVAB BLOCKADDR, R1 : ; 
50 5 p 00482 MOVL 3, RO : : 
00006 30 0048 BSBW FIND BLOCK ; : 
4F 50 £9 00488 63$: BLBC  STATOS, 67$ : ; 
54 OC BE DO 00488 ai2(SP5, R4 + 1344 ; 
50 04 A& 9A 004BF MOVZBL 4(R4), RO : : 
55 01 00 004¢3 VL i.e : F 
50 00 04 87 04 Bt 2d 00466 CMPCS  a@KEYDESC, @4(R7), #0, RO, 5(R4) : ; 
03 1A OO4CF BGTRU 64$ : F 
56 1 09 00401 SBWC OC, RS : ; 
30 AE 5 DO 004D4 64$:  MOVL RS. CH_RESULT : F 
95 12 00408 BNEG 658 : : 
0150 31 OO4DA BRW 84$ : ; 
3D 15 00400 65$:  BLEQ 68$ + 1350 : 
04 BE 69 00 0040F MOVL.  (R9), a4(SP) : 1352 ; 
50 68 gi C1 OO4ES ADDL3 #1, (RB), RO : ; 
14 BE 0 DO O04E VL — RO, 920 (SP) : : 
20 AE 50 1 OO4EB CMPL RO, 32(SP) : : 
08 19 OO4EF BLSS 66$ : : 
16 BE D4 Oar CLRL (SP) : : 
04 BE 69 01 C1 O04F4 ADDL3 (R9), a4(SP) : : 
52 40 AE SE 004F9 66$ MOVAB CACHE ENTRY, R2 F : 
51 44 AE 9E 004FD MOVAB LOCKADDR, R1 : ; 
50 00 BE 04 BE ci 0501 ADDL3 a4(SP), aO(SP), RO : : 
00966 g 0 07 BSBW FIND BLOCK : ; 
62 E9 0050A 67$:  BLBC_ STATOS 33 : ; 
50 24 «AE 14 BE C5 0050 MULL3 a20(SPS, 36(SP), RO ; : 
1C BE 44 BE4 F 0 1 MOVAB LOCKADDRERO], @28(SP) : F 
FF3 1 BRW S : 1350 : 
08 8B 9 Dd 0 1 68$ MOVL.  (R9), aB(SP) > 1355 ; 
6A 6 1 f SUBL3 #1, (R8), (R10) : : 
A 4 BGEG 69% : : 
6A 20 A i ¢ 6 SUBL3. #1, 32(SP), (R10) : ; 
08 BE 6 1 ¢ SUBL3 #1. (R9), a8(SP) : : 
FEFD 37 698 BRW 57$ ; : 
69 04 BE 09 0$ MOVL  a4(SP), (R9) > 1363 ; 
50 A 14 BE C SUBL 3 ag0(SPS, (R10), RO : : 
0 C6 C DIVL2 #2, RO : ; 


? 


LBR_OLDLIB tose -1984 01:59:17 -VAK-11 Bliss-32 V4.0-74 Page 20 
v04= 1 ~3007 138% Pa tae DISKSVMSMASTER:CLBR.SRCIOLDLIB.B32:1 © (8 
£® 50 14 BE C1 3F ADDL3 920(SP), RO, (R8) ; ; 
; 44 BGEO : : 
6 0 AE C 46 SUBL3 #1, 32(SP), (RB) : | ; 
6 4 BE 1 + 4 SUBL a a4(SP). (RI) : : 
20 «AE 68 D1 71$: CMPL i. 32(SP) : : 
oh be Ble tea) : 
69 04 : 01 C1 A ADDL3 #1, @4(SP), (RO) : ; 
40 AE 9E fF 72$:  MOVAB  CACHE_ENTRY : ; 
5 44 AE ; 63 MOV BLOCKADDR, R : ; 
50 00 BE § 36 ADDL (R9), a0($P), RO : ; 
00 06 0 C BSBW FIND BLOCK : : 
1€ e? Bae 73$: BLBC STATOS, 75$ : ; 
50 24 AE 68 g 09 g MULL3 (RB), 36(SP), RO : ; 
C BE 44 BE4O 9E 0057 MOVAB @BLOCKADDRCROI, a12(SP) : : 
38 AE OG 0570 CLRL MOVEFL + 1364 ; 
52 40 AE OE 380 74$:  MOVAB CACHE_ENTRY, R2 + 1367 ; 
51 44 AE H: 05 MOVAB BLOCKADDR, R1 : ; 
50 00 BE 6 ¢ 0588 ADDL3 (R9), a0(SP), RO : : 
00006 30 0058 BSBW = FIND. BL : ; 
78 50 £9 00590 75$:  BLBC  STATOS, 81$ : ; 
54 0c BE DO 0059 L al2¢sPS, R4 + 1371 F 
gM Bie BateN ite A : : 
50 00 04 87 04 BC 2d 0059E CMPCS @KEYDESC, @4(R7), #0, RO, 5(R4) : ; 
3 1A 005A7 BGTRU 76$ : 3 
55 1 09 00549 SBWCOtié«#1,.-8S : ; 
30 AE 33 06 OOdAC 76$: Ov R5. CH_RESULT ; : 
FFFFFFFF © 8F 38 AE CO 00382 CMPL §MOVEFLAG, #-1 + 1372 : 
2F 13 OO5BA BEQL $ : : 
38 AE 01 0d 0058C¢ MOVL. #1, MOVEFLAG : 1375 : 
68 01 C1 b05¢0 ADDL3 #1. (RB), RO : 1376 ; 
68 50 DO 005C4 MOVL RO, ¢ ; 
20 AE 50 01 909¢7 CMPL RO, 32(SP) : 
04 19 005CB BLss 6. 77$ ; 
68 D4 005CD CLRL —s-_ (RB) ; 
69 06 005CF INCL  (R9) : 
40 AE 9E 0501 77$:  MOVAB CACHE_ENTRY, R2 : 
51 44 AE H: 505 MOVAB BLOCKADDR, R1 ; 
00 6 ¢ 0509 ADDL (R9), a0(SP), RO ; 
00906 9 ODE SBWSs&FIND BLOCK F 
2A F 5E BLBS STATOS, 82$ : 
4 005E4 RET ; 
53 13 ES 78$:  BEQL  84$ : 1378 
01 38 «AE «Oi O05E CMPL  MOVEFLAG, #1 : 1384 
61 13 368 79$: BEQL $ ; 
38 OA 1 CE 005ED MNEGL @# MOVEFLAG + 1387 
0 68 F4 oF) SOBGEQ (R&), 80$ > 1388 
20 AE 1 C3 F4 SUBL3 #1, $2(SP), (RB) ; 
69 9 DECL. (R9) : 
52 40 AE 9E 005FB 80$: MOVAB CACHE_ENTRY, R2 ; 
1 44 AE : FF ROVAB BLOCKAD R, RI ; 
00 «BE 6 ¢ 605 ADDL (R9), a0(SP), RO ; 
00006 30 0060 BSBW —- FIND “BLOCK : | 
| 
| 
| 


tag 


50 4 oN 28 £8 Soer 8 
. + an 44 BES 1 
ng 

6A i) iF 
} 622 
FF 624 
33 be RE ba ooede 
50 00 04 =««287 8% BC 2D 0062F 
05 A4 6 
14 1 6 
50 08 AC 063A 84$: 
60 64 3C 0063E 
04 AO 0 AS BO 00641 
50 00000000G 8F 00 00646 85$ 
04 00640 
50 00000000G 8F 00 0064 $: 
04 0065 $: 


; Routine Size: 1622 bytes, Routine Base: S$CODE$ + 00C1 


:17 VAX-11 Bliss-32 V4.0-74 Pa 1 
246 ST EKSVMEHASTERSLVBR-SRCTOLDLIB.832;1 a 3} 
STATUS, 87$ g 
(RB), $6(SP), RO : 
@BLOCKADDRCROJ, a12(SP) : 
a), a20(SP) + 1391 
(RB), (R10) + 1392 
35 ; 
4$ : 
a12(SP), R& + 1400 
4(R4) 0 3 
@KEYDESC, @4(R7), #0, RO, 5(R4) : 
86$ : 
ETRFA, RO + 1402 
(R4), (RO) : 
2(R45, 4(R + 1403 
#LBRSNORMAL, RO + 1406 
#LBRS_KEYNOTFND, RO : 
: 1407 


el 
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; 590 1408 1 GLOBAL ROUTINE Lbr_old_get_idx (index, user_routine, match_desc) 

2 ee aie = = aE: 
: 238 1411 i This Ray 23. calls the specified user routine for each entry 

; 594 Vlg ! in the index 

BME 

: §9 P 1415 erform(travers_old_idx(.index, (IF .match desc NEQ 0 

; 598 P 1218 , THEN check_wild 

; 599 P 141 ets E call_User), 

; 600 1418 -user_routine, .match_ desc)); 

; 601 1419 RETURN true 

; 602 1420 END; 'Of Lbr_old_get_idx 


0000 00000 ENTRY LBR_OLD GET_IDX, Save nothing : 1408 

7E 08 AC 7D 00002 HOV —-USER_ROOTINE, -<(SP) > 1418 
Oc AC D5 00006 TSTL —-MATCA. DESC ; 
07 13 00009 BEQL ; 
50 9000v CF 9 000 MOVAB  CHECK_WILD, RO ; 
5 11 9001 BRB ; 
50 0000v fF 9E 00012 Is: MOVAB CALL_USER, RO : 
0 DD 00017 28: PUSHL : 
04 AC DD 00019 PUSHL INDEX ; 
O000V CF 04 FB OO0I¢ CALLS #4, TRAVERS OLD_1DX : 
03 0 £9 00021 BLBC STATUS, 3$ : 
50 01 DO 00024 MOVL #1, RO : 
04 00027 38: RET ; 


1419 
1420 
; Routine Size: 40 bytes, Routine Base: S$CODE$ + 0717 


— 


bese -Sep-1984 01: VAX-11 Bliss-32_V 


4.0-7 
DISKSVMSMASTER: clear. SRC OLOLIB.832; “fe 


<- 
<2 


14-Sep-1984 12: 


305 ROUTINE Lbr_lold_src_idx (index, rfa, user_routine) 


i This routine searches the index for the given RFA and calls the 
i user routine for each entr 


y that matches. 


erform(travers_old_idx(.index, check rfa, 
Ab N true 


ee 
Fat ae et be ee et _ eee 


SOOONOUS WN 


0000 00000 

08 AC DD 0000 

OC AC 0D 0000 

0000v CF 9F 00008 

04 AC DD 0000C 

0000v CF 04 FB OO00F 
03 30 £9 00014 

50 01 DO 00017 

04 O001A 


Routine Base: $CODE$S + 073F 


: Routine Size: 


-user_routine, .rfa)); 
!Of Lbr_lold_src_idx 


LBR_OLD_SRC_IDX, Save nothing 
RFA 


IN 
#4, TRAVERS_OLD_IDX 
STATUS, 1$ 


L 


es 


3; Routine Size: 56 bytes, Routine Base: S$CODE$ + 075A 


; 615 1431 1 ROUTINE check wild (entry, user_routine, match_desc) = 
Dit fen be ae Soi 
; 618 1434 : Called by traverse for each entry in the index. Check to 
H $1? 1? 5 see if current entry matches the match_desc. Call user if so. 
3 62) 14 ; ! Inputs: 
3; 6 é 1438 : 
; 6 1439 : entry = Address of key entry 
> 624 1440 : user_routine = Address of user action routine 
; 625 1441 : match_desc = string descriptor for match string 
; 6 $ 1906 ! 
$ 6 144 l<oe 
; 628 1444 MAP 
> 629 1445 entry : REF BBLOCK 
; e 78 match_desc : REF BBLOCK; 
; o3 1448 IF (fmg$match_name (.entry Cone$b_naming], entry penete panes. 
; 63 1449 -match_desc Cdsc$w_length 
; 634 1450 3 -match_desc (Cdsc$a pointer}) 
; 635 1451 3 OR CHSEQL (.match_desc Cdsc$w_length], entry Cone$t_namel, 
; 636 1438 ; -match_desc Cdsc$w_lengt 
3 657 145 -match_desc dsc$a_pointer4)) 
; 638 1454 2 THEN perform (call_user (.éntry, .user_routine)); 
; 639 1455 2 RETURN true 
; 640 1456 1 END; 'Of check_wild 
O3FC 00000 CHECK_WILD: 
-WORD Save R2,R3,R4,R5,R6,R7,R8,R9 
57 0C AC 00 00002 MOVL § MATCH_DESC. R? 
29 04 AC 00 00006 MOVL ag a 
5 05 A6& YE QO00A MOVAB (R6), R 
55 046 A? b? Bes MOVL 4(R7), R5 
54 67 3C 0001 MOVZWL (R7), R4 
52 04 AS. 3A 9001 MOVZBL 4(R65, R2 
00006 30 Boole BSBW FMGSMATCH_NAME 
08 50 58 001C BLBS RO, 1$ 
04 87 05 Ab 67 29 OOO1F CMPC3 (R7), 5(R6), @4(R7) 
0D 12 000 ; BNEQ $ 
08 aC DD 88 1$: PUSHL USER_ROUTINE 
56 DD 0002A PUSHL 6 
0000v CF 9¢ FB 0002C CALLS #2, CALL_USER 
03 0 €9 00031 BLBC STATUS, 3$ 
50 01 »dO B88 $3: MOVL #1, RO 
04 00037 3$: T 


mM 7 
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; 64 1457 1 ROUTINE check rfa (entry, user_routine, rfa) = 

2) et hi 

; 645 1460 ! This routine checks if the RFA of the entry matches the given RFA 
3 ong 1461 ' and calls the user back if so. 

; 64 1008 : 

; 648 146 

; 649 1464 MAP 

; 650 1465 entry : REF BBLOCK, 

: $21 1788 rfa : REF BBLOCK; 

3 re ee 4 IF donk haneey modvbn] GOL gc fate tap y vbn] 

3; 654 146 AND .entryloneS$w modbytot td EQL .rfalrfasw qt tert? 

: 655 1470 THEN per fore (call_user (.entry, .user_routine) 

; 656 1471 co true 

; 657 1472 1€ 'Of check_rfa 


0000 00000 tei nai 


-WORD Save nothing 
50 04 AC 00 00002 MOVL Neh RO 
51 OC AC 00 00006 MOVL RFA, 
61 60 10 00 ED QOOOA CMPZ7V #0, #16, (RO), (R1) 
14 12 0000F BNEQ 1$ 
046 Al 02 AO B61 00011 CMPW 2(RO), 4(R1) 
OD 12 00016 BNEQ 1$ 
08 AC OD 49S PUSHL USER_ROUTINE 
50 DD 00018 PUSHL RO 
O000v CF 02 FB 0001D CALLS #2, CALL_USER 
03 50 £9 00022 BLBC STATUS, 2$ 
50 01 dO 00025 1$: MOVL #1, RO 
04 00028 2$: RET 


; Routine Size: 41 bytes, Routine Base: $CODE$ + 0792 


Bliss-32 V 
SMASTER: clBae she OLDLIB.832;1 


roe 


tag 


; 670 


; Routine Size: 


— 


ROUTINE call_user (entry, user_routine) = 
BEGIN 
i 


} This routine calls the user routine for a given entry 


entry : REF BBLOCK; 


LOCAL 
desc : BBLOCKCdsc$c_s_ bin], 
localrfa : BBLOCKE(rfa$c_length); 
IND 
context = .lbr$gl_control Clor$l_ctxptr] : BBLOCK; 


tocalrfatrfasuiotts =_.entryCone$w_modvbn); 


DONAV EWN OVO ONOULSW 


locairfalrfa$Sw_offset] = .entrylone$w_modbytoff); 
desc(dsc$w_length] = .entryLone$b_nam(ng); 
desc(dsc$a pointer] = entryione$t_namel; 

perform ((.user_routine) (desc, localrfa)); 
context Cctx$v_found1] = true; 


Dele ale Dele Del ele Sal Sel Del Deke et ee el 


kk dd 
No ed Ot tat try te eet OP 


Uw 


:17 VA 
244 DI 


X-11 BLi 
SKSVMSMASTER: CLBR 


RETURN true 
1 END; 'Of call_user 
0004 00000 CALL_USER: 
.WORD Save R2 
5E 0c ¢2 00002 SUBL2 #12, SP 
50 00006 CF D0 00005 MOVL §LBRS$GL_CONTROL, RO 
52 OE AO DO OO00A MOVL  14(RO)> R2 
50 04 AC pO 0000 MOVL ENTRY, RO 
7E 60 3C 0001 MOVZWL (RO), LOCALRFA 
04 AE 02 Ad 80 0001 OVW  2(ROS, LOCALRFA+4 
08 AE 04 AO 9B OOO1A MOVZBW 4(RO). DESC 
OC AE 05 AO 9E 0001F VAB 5(RO), DESC+4 
5E DD 00024 PUSHL SP 
Oc AE 9F 00026 PUSHAB DESC 
08 BC 08 FB 00029 CALLS #2, @USER ROUTINE 
08 5 £9 00020 BLBC. STATUS, 1$ 
04 A2 40 BF 88 00030 BISB2 #64, 4(R2) 
50 01 p6 90035 MOVL 1, RO 
4 00038 1$: RET 
57 bytes, Routine Base: $CODES + 078B 
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3 3 1698 1 ROUTINE travers_old_idx (index, action_routine, user_routine, rfa) = | 
; © ¢ 133 BEGIN 

; 1435 This routine calls the given action routine for each entry in the index. 

aes: Hi} MAP fa : REF BBLOCK 

3 rfa: : 

; 690 1 08 

; 691 1504 IND 

; 69 1505 context = .lbr$ Lcontrost tbest ctxptr] : BBLOCK,  !Context block 

; 69 1506 header = .lbr$gl_Control Lor$l ferred : BBLOCK, ib ibracy header 

; 694 1207 oldctx = headerlohd$St_oldctx] : BBLOCK, 'Old Library context block 

; 695 1506 idxdat = 

; 696 1509 IF .index EQL 1 

; 697 1510 THEN oldctx Otte} antvbn 

; 698 1511 ELSE oldctxLlofl$l_gstvbn 

; 699 1316 : BBLOCK 

: 700 151 entrysize = .idxdatLoib$l_esiz), 'Size of an entry 

; 701 1514 entsperblk = .idxdatCoib$T_entpblk], 'Number of entries in a block 

; 70 1515 topblkents = ( 

; 70 1516 IF .idxdatCoib$l_nents] LEQ entsperblk 

: 704 1517 THEN .idxdatCoib$l_nents 

; 705 1518 4 ELSE (.idxdatCoib$l_nents) 

; 706 1519 4 - entsperblk*(.idxdatCoib$l_nblks] - 1)) 

: 707 1520 FE 

; 708 1521 

: 709 15 ; LOCAL 

: 710 15 cache_entr 

3; (711 1524 blkadr : Ree VECTORC BYTE); 

; Ng 1525 

Fy 1526 : 

; re 13 i } Read in index if necessary 

: 716 136? IF .idxdatCoib$l_tbladr] EQL 0 ! If index has not been read 

; iv 1530 THEN BEGIN 

; 718 1531 IF .idxdatCoib$l_nblks] EQL 0 ! If index is empty 

: 719 1336 THEN return true; ! then all done 

: 720 P 153 perform(read_n_block(.idxdatCoib$l_vbn], ! then read it now 

; 721 1534 > Mdxdattoibst nbtks))); 

’ tf. 1535 idxdatCoib$l_tbladrj = 1; ! flag index read 

; fe 1536 END; 

: 726 1537 

3 v6? 1238 if -idxdatCoib$l_nents] GIRU entsperblk 'If at least one full block 

3 558 1540 INCRU i FROM O TO .idxdatCoib$l_nblks] - 2 

3; 728 1541 DO BEGIN 

: 44 1266 perform(find_block(.idxdatCoib$l_vbn]+.i, blkadr, cache_entry)); !Find block in memory | 
: Ay 1363 : Call action routine for all entries in block 

: ba 1366 INCRU j FROM 0 TO entsperblk - 1 ‘ | 
; 734 154 DO IF NOT (.action_routine) (blkadrl.jtentrysizel, | 
s 739 1548 -user_routine, .rfa) 
3 238 1363 THEN RETURN true; 
ee 1550 END; 
3; 738 1551 ! 

3; «6739 1552 


i Now do the partial block (if it exists) | 


LBR 
v04 


BeBe Se Se Se Se Se ee Se Se Se Se Se Se Se Se Se Se Se Se Se se Se Se Fe Fe Ge Ge Se Ge Se Se Ge Se Se Se Se Ge Se Ge Se Se Se Se Se Se Ge Seas Fe Se Seas Fe ee Fe ae 
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1 
1 
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1 
1 
1 
1 
1 
1 


' 
IF bose i pants GTR 0 
THEN BEGIN 
perform(find_block(.idxdatCoib$l_vbn] + .idxdatCoib$l_nblks] - 1, 
adr, cache_entry)); 


e) (blkadrl.itentr 
-user_routine, .rfa 
THEN RETURN true; 


wnat i FROM 0 TO topblkent 


s 
O IF NOT (.action_routin 


END; 
RETURN true 
END; 

50 OA 
50 oc 
50 08 

14 
57 0c 
50 


!Of travers_old_idx 


OFFC 00000 TRAVERS_OLD_IDX: 
. WORD ave Be MS MEMS MOA? AB RO MIO .A1 


Oro 


ooowo —ocoom 
MOOOWMMAL VI" QO AKWOOF —"OWIAWWWOOWO "CO 


Voi Cc OP uw 


So 
So 


a 


STOMWO O09 “FT OMWI 9 $9 $F 9OO0 $9 -VT 99090 -902ITo0 
MM SNS 9D OOWOCD OW" 9 BD AWM O ONS VIP 


em om em we ee ww fo lelololololololololol~o) 
PANNE & EEE MAMI SS OOO 


o 
co 
SS SS SESSSSSSSsssssssssssssssssssss 


$ 
ACHE ENTRY, R2 
LKADR, R1 


oococeo 


Boroomor 


o 
So 
o 


Pete Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Fe Ge Se Fe Se Se Ge Se Se Se Fe Fe Se Se Se Be Fe Se Be Be Se Be 
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A 
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1 
5 
A 
A 
4 
0 
A 
1 
0 
5 
5 
5 
4B 
1 
A 
5 
& 
6 
A 
4 
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LBR_OLDLIB 1s Sep VAX-11 Bliss-32 V Page 29) 
ibe=ob0 Wea een ee eT NN eet eae iba saeSovpL1e.032:1° 22 a 
? o att O86 6$ cova «USER roy (SP) 1548. 
50 55 85 c A MULL3 ier, ‘ ; 1547 | 
OC BE4O 9F OB PUSHAB ae F803 ; | 
08 BC re 009 CALLS SACTION. ROUTINE : | 
4A & 38 BLBC * 14$ : | 
D6 3 INCL 5° : 
55 D1 0009B 7$ CMPL sd, -RS : 
go Db OOOA ae ft t 1540) 
57 54 D1 O00A2 8S: CMPL i R7 : 
‘ 1B OOOA BLEQU 5§ ; 
D5 OOOA7 9S: TSTL RB + 1554 
8 15 0009 10$ BLE 148 : 
52 bE 9E OOAB MOVAB CACHE_ENTRY, R2 + 1557 
51 046 «OA vE OA ROvAR BLKADR. RI ; 
53 63 oC A 008 ADDL3 12(R3). (R3), R3 : | 
50 |i ; 008 OVAB -1(R3). RO : 
00006 00088 BSBW FIND BLOCK : 
25 50 £9 OOBE 11$:  BLBC  STATOS, 15$ F 
3 FF AB SE 000C1 MOVAB =1(R8). R3 + 1558 
3 D4 000¢5 oT ee + 1559 
15 11 900¢7 BRB 13$ : 
ze 0c AC 7D 000C9 12$:  MOVQ USER_ROUTINE, -(SP) + 1560 
50 5 59 ¢5 000CD MULL3. R9, IT, RO + 1559 
Oc BE4O 9F 00001 PUSHAB ag KADRER ROI : 
08 BC 03 FB 00005 CALLS , @ACTION_ROUTINE : 
07 0 £9 00009 LBC 3—s«aRO. «148 ; | 
3 D6 000DC INCL I : 
53 52 D1 OOODE 13$: CMPL = I, R3 ; 
E6 1B 000E1 BLEQU 12$ : 
50 01 00 OOOE3 14%:  MOVL #1, RO + 1563 
04 000E6 15$: _—sRET : ead 
; Routine Size: 231 bytes, Routine Base: SCODES + O7F4 
3 P36 1565 1 END 'Of module 
: 75 1566 0 ELUDOM | 
| 
| 
; PSECT SUMMARY 
: Name Bytes Attributes | 
: $CODES 2267 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON.NOPIC.ALIGN(2) 
. i An 0 NOVEC.NOWRT.NORD ;NOEXE.NOSHR, LCL. ABS. CON,NOPIC.ALIGN(O) | 


Library Statistics 


VOu=000 if: £01944 QUE WNL WGALS FER? cYBACsReSoupu1e.03251° 2% 199 | v 
; Gooamese ZyYERO(§ eoceeres Pages Processing 
; File Total Loaded Percent Mapped Time 
; _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 13 0 581 00:01.0 | 
| 
: COMMAND QUALIFIERS | 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:OLDLIB/OBJ=0BJ$:OLDLIB MSRC$:OLDLIB/UPDATE=(ENH$:OLDLIB) | 


; Size 2267 code + 0 data bytes 

3; Run “rime 0:56. 

; Elepsed Time: 01:57. 

: Lines n: 165 

; Lexenes/CPU-Rin: 25860 

: — Used: 571 pages 

; Compilation Complete 
| 
| 
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